VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BDetalle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bEmpleado"
Attribute VB_Ext_KEY = "Member1" ,"bproducto"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'local variable(s) to hold property value(s)
Private mvarbProducto As bproducto 'local copy
Private mvarnCantidad As Integer 'local copy
Private mvarnPrecio As Double 'local copy
Private mvarnCodigo As Long 'local copy
Private mvarnComision As Double 'local copy
Private mvarnMonto As Double 'local copy
Private mvarbEmpleado As bEmpleado 'local copy
Private mvarnEstado As Integer

Friend Property Set bEmpleado(ByVal vdata As bEmpleado)
    Set mvarbEmpleado = vdata
End Property


Friend Property Get bEmpleado() As bEmpleado
    Set bEmpleado = mvarbEmpleado
End Property



Friend Property Let nMonto(ByVal vdata As Double)
    mvarnMonto = vdata
End Property


Friend Property Get nMonto() As Double
    nMonto = mvarnMonto
End Property



Friend Property Let nComision(ByVal vdata As Double)
    mvarnComision = vdata
End Property


Friend Property Get nComision() As Double
    nComision = mvarnComision
End Property



Friend Property Let nCodigo(ByVal vdata As Long)
    mvarnCodigo = vdata
End Property


Friend Property Get nCodigo() As Long
    nCodigo = mvarnCodigo
End Property



Friend Property Let nPrecio(ByVal vdata As Double)
    mvarnPrecio = vdata
End Property


Friend Property Get nPrecio() As Double
    nPrecio = mvarnPrecio
End Property



Friend Property Let nCantidad(ByVal vdata As Integer)
    mvarnCantidad = vdata
End Property


Friend Property Get nCantidad() As Integer
    nCantidad = mvarnCantidad
End Property



Friend Property Set bproducto(ByVal vdata As bproducto)
    Set mvarbProducto = vdata
End Property


Friend Property Get bproducto() As bproducto
    Set bproducto = mvarbProducto
End Property

Friend Property Get nEstado() As Integer
    nEstado = mvarnEstado
End Property

Friend Property Let nEstado(ByVal nEstado As Integer)
    mvarnEstado = nEstado
End Property


Private Sub Class_Initialize()
Set bproducto = New bproducto
Set bEmpleado = New bEmpleado
End Sub

